home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Control Panel Hide 9.xpl < prev    next >
Text File  |  1999-10-02  |  4KB  |  119 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #3"
  6. "VERSION"="1.40"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "EppieDesktop" applet"
  9. "TEXT 2"="Display "Rei's More Extensions" applet"
  10. "TEXT 3"="Display "TweakAll" applet"
  11. "TEXT 4"="Display "Startup" applet"
  12. "TEXT 5"="Display "Window Blinds" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "DESCRIPTION 2"="Rei's More Extensions gives more options to Windows' extensions and is available at http://plaza27.mbn.or.jp/~satomii/"
  15. "DESCRIPTION 3"="EppieDesktop can be used to change the image of the Start button and is available at http://www.u.arizona.edu/~jepstein/epdsk/"
  16. "DESCRIPTION 4"="The "Startup" Control Panel applet can be used to show what loads on startup and remove things you don't want. It's available at http://www.mlin.net/StartupCPL.shtml"
  17. "DESCRIPTION 5"="Window Blinds is available at http://www.windowblinds.net/ and allows users to change the way the Windows graphical user interface looks."
  18. "AUTHOR"="Xteq Systems"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  21. "COMMENT 2"="Special thanks to Maxwell (maxwello@hotpop.com) for his brilliant tips and CptSiskoX (CptSiskoX@flashmail.com) for his help."
  22. "COMMENT 3"="Thanks also to Ojatex@aol.com [http://users.aol.com/ojatex/laptop.htm]."
  23. "COMMENT 4"="More information: MS KB Q207750"
  24.  
  25.  
  26. '******************************************************************
  27. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  28. '******************************************************************
  29. sVals=""
  30. sVals2=Array("epshell.cpl","moreshex.cpl","TweakAllCPL.Dll","Startup.cpl","wbcpl.cpl")
  31. sVals3=Array("epshell.cpl","moreshex.cpl","TweakAllCPL.Dll","Startup.cpl","wbcpl.cpl")
  32. '******************************************************************
  33. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  34. '******************************************************************
  35. sPath="HKCU\Control Panel\Don't Load\"
  36. sFile="CONTROL.INI"
  37. sFileSec="Don't Load"
  38.  
  39.  
  40.  
  41. SUB Plugin_Initialize
  42.  if GetWinVer=4 then
  43.     sVals=sVals3
  44.  else
  45.     sVals=sVals2
  46.  end if
  47.  
  48.  for i=0 to UBound(sVals)
  49.      Call ReadIt(i+1,sVals(i)) 
  50.  next 
  51. END SUB
  52.  
  53. Sub ReadIt(ITM,VAL)
  54.   If GetWinVer=2 or GetWinVer=4 then
  55.  
  56.      s=RegReadValue(sPath & VAL)
  57.      if IsEmpty(s)=true then
  58.         Call SetUIElement(ITM,true)
  59.      else
  60.         Call SetUIElement(ITM,false)
  61.      end if
  62.  
  63.   else
  64.  
  65.     s=IniReadValue(sFile,sFileSec,VAL)
  66.     if len(s)>0 then
  67.        Call SetUIElement(ITM,false)
  68.     else
  69.        Call SetUIElement(ITM,true)
  70.     end if
  71.      
  72.   end if
  73.      
  74. End Sub
  75.  
  76. 'Called when the Plugin should validate the Data the user has entered
  77. SUB Plugin_CheckData(ElementIndex)
  78. END SUB
  79.  
  80. 'Called when the Plugin should apply the changes
  81. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  82.  for i=0 to UBound(sVals)
  83.      Call WriteIt(i+1,sVals(i)) 
  84.  next 
  85. END SUB
  86.  
  87. Sub WriteIt(ITM,VAL)
  88.  b=GetUIElement(ITM)
  89.  if b=true then
  90.     'Display it
  91.  
  92.     if GetWinVer=2 or GetWinVer=4 then  
  93.        s=RegReadValue(sPath & VAL)
  94.        if IsEmpty(s)=false then
  95.           Call RegDeleteValue(sPath & VAL)
  96.        end if
  97.     else
  98.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  99.     end if
  100.  
  101.  else
  102.    'Hide it
  103.    
  104.    if GetWinVer=2 or GetWinVer=4 then
  105.       Call RegWriteValue(sPath & VAL,"1",1) 
  106.    else
  107.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  108.    end if
  109.  
  110.  end if   
  111. End Sub
  112.  
  113.  
  114. 'Called when the Plugin is about to be removed from memory
  115. SUB Plugin_Terminate
  116. END SUB
  117.  
  118.  
  119.